Explorers of the New World/Explorers of the New World.iso/pc/exhelp.dir/00027_DB INITIALIZE-LEAVE.ls

Text File | 1995-09-06 | 3.8 KB | 131 lines

on initializeData
  cancelIndexReturn()
  setUpMenu()
  setDatabaseSprites()
  setDatabasePuppets()
  setDatabaseCursors()
  setDatabaseConstraints()
  setDatabaseTextGlobals()
  setDatabaseBrowserGlobals()
  setDatabaseFieldAttributes()
  setDatabaseBrowserText()
  clearSearchTopicField()
  setDatabaseMisc()
  clearDatabase()
end

on setDatabaseSprites
  global browser, textSprite, title, browserScroll, BrowserScrollBar, indexButton, searchButton, findButton, inputField, pictureButton, textButton, mapButton, printButton, hilitTopic, hiliteSprite, pageUpButton, pageDownButton, PictureSprite
  set pictureButton to 2
  set mapButton to 3
  set textButton to 4
  set printButton to 5
  set indexButton to 6
  set searchButton to 7
  set findButton to 8
  set inputField to 9
  set BrowserScrollBar to 11
  set browserScroll to 13
  set textSprite to 14
  set pageUpButton to 15
  set pageDownButton to 16
  set PictureSprite to 17
  set title to 20
  set browser to 21
  set hilitTopic to 22
end

on setDatabasePuppets
  global pictureButton, textButton, mapButton, printButton, indexButton, searchButton, findButton, inputField, browserScroll, hilitTopic, textSprite, pageUpButton, pageDownButton, PictureSprite
  puppetSprite(pictureButton, 1)
  puppetSprite(mapButton, 1)
  puppetSprite(textButton, 1)
  puppetSprite(printButton, 1)
  puppetSprite(indexButton, 1)
  puppetSprite(searchButton, 1)
  puppetSprite(findButton, 1)
  puppetSprite(inputField, 1)
  puppetSprite(browserScroll, 1)
  puppetSprite(hilitTopic, 1)
  puppetSprite(textSprite, 1)
  puppetSprite(pageUpButton, 1)
  puppetSprite(pageDownButton, 1)
  puppetSprite(PictureSprite, 1)
end

on setDatabaseCursors
  global fingerCursor, browserScroll
  set the cursor of sprite browserScroll to fingerCursor
  set the cursor of sprite 10 to fingerCursor
  set the cursor of sprite 12 to fingerCursor
end

on setDatabaseConstraints
  global browserScroll, BrowserScrollBar
  set the constraint of sprite browserScroll to BrowserScrollBar
end

on setDatabaseTextGlobals
  global textColor, bkgndColor, regularStyle, hilitBackground, hilitforeground, hilitTextColor
  set regularStyle to "plain"
  set textColor to 221
  set bkgndColor to 1
  set hilitBackground to 221
  set hilitforeground to bkgndColor
  set hilitTextColor to 235
end

on setDatabaseBrowserGlobals
  global browserTopLine, browserTopics, numberTopics, numVisibleTopics, scrollTopValues, equivalentTerms, browserLineHeight, browser, masterBrowserTopics
  set browserTopLine to 1
  set browserTopics to the text of cast "browserTopics"
  set masterBrowserTopics to browserTopics
  set numberTopics to the number of lines in browserTopics - 1
  setTextLineHeight()
  setBrowserLineHeight()
  set numVisibleTopics to integer((the height of sprite browser + (browserLineHeight - 1)) / browserLineHeight) - 1
  set scrollTopValues to field "scrollTopValues"
  set equivalentTerms to []
end

on setDatabaseFieldAttributes
  setBrowserAttributes()
  setHilitTopicAttributes()
  setTitleAttributes()
end

on setDatabaseBrowserText
  global browserTopLine, numVisibleTopics, browserTopics
  setFieldText("browser", browserTopLine, numVisibleTopics, browserTopics)
end

on setDatabaseMisc
  global pageUpH, pageUpV, pageDownH, pageDownV, buttonStates, pictureH, pictureV
  set pageUpH to 558
  set pageUpV to 406
  set pageDownH to 602
  set pageDownV to 406
  set the keyDownScript to "displayKeyLineAtTop"
  set the keyUpScript to EMPTY
  setClearedFlag(0)
  setIndexMode()
  set buttonStates to field "button states"
  set pictureH to 340
  set pictureV to 240
end

on leaveDB
  global browserTopics, masterBrowserTopics
  set browserTopics to EMPTY
  set masterBrowserTopics to EMPTY
  set the keyDownScript to EMPTY
  set the keyUpScript to EMPTY
  clearSearchTopicField()
  sound stop 1
  pass()
end

on stopMovie
  leaveDB()
end